#!/usr/bin/perl

use CGI qw(:standard);
use LWP::Simple qw(get);
use XML::Writer; 
use XML::Simple; 
use XML::Twig;
use XML::DOM;


my $nombreUsu = param('nombre'); 
my $passUsu = param('pass');
my $apellidosUsu = param('apellidos');
my $id= param('id');


my $url= get('http://localhost:8080/exist/rest//db/nura/usuario.xml');
my $xml = XMLin($url);

$xml{$idUsuario}=$id;
$xml{$idUsuario}{$nombre}=$nombreUsu;
$xml{$idUsuario}{$apellidos}=$apellidosUsu;
$xml{$idUsuario}{$password}=$passUsu;

print $xml;





